#!/bin/sh -e
## 02_fix_lablgtk2_build.dpatch by Sylvain Le Gall <gildor@debian.org>
##
## All lines beginning with `## DP:' are a description of the patch.
## DP: No description.

if [ $# -lt 1 ]; then
    echo >&2 "`basename $0`: script expects -patch|-unpatch as argument"
    exit 1
fi

[ -f debian/patches/00patch-opts ] && . debian/patches/00patch-opts
patch_opts="${patch_opts:--f --no-backup-if-mismatch}"

case "$1" in
       -patch) patch $patch_opts -p1 < $0;;
       -unpatch) patch $patch_opts -p1 -R < $0;;
        *)
                echo >&2 "`basename $0`: script expects -patch|-unpatch as argument"
                exit 1;;
esac

exit 0

@DPATCH@
diff -urNad /mnt/nfs0/gildor/deb/ocaml-package/camlimages/camlimages-2.11/lablgtk/oXimage.mli camlimages-2.11/lablgtk/oXimage.mli
--- /mnt/nfs0/gildor/deb/ocaml-package/camlimages/camlimages-2.11/lablgtk/oXimage.mli	2001-05-22 12:05:45.000000000 +0200
+++ camlimages-2.11/lablgtk/oXimage.mli	2004-01-14 17:08:41.000000000 +0100
@@ -14,7 +14,7 @@
 val create :
   kind:Gdk.Image.image_type -> visual:Gdk.visual -> 
     width: int -> height: int -> ximage
-val get_image : 'a Gdk.drawable -> 
+val get_image : [>`drawable] Gobject.obj -> 
   x:int -> y:int -> width:int -> height:int -> ximage
 val of_image :
   Gdk.visual -> (float -> unit) option -> OImage.oimage -> ximage
diff -urNad /mnt/nfs0/gildor/deb/ocaml-package/camlimages/camlimages-2.11/lablgtk/ximage.mli camlimages-2.11/lablgtk/ximage.mli
--- /mnt/nfs0/gildor/deb/ocaml-package/camlimages/camlimages-2.11/lablgtk/ximage.mli	2004-01-14 17:08:04.000000000 +0100
+++ camlimages-2.11/lablgtk/ximage.mli	2004-01-14 17:08:06.000000000 +0100
@@ -34,7 +34,7 @@
 val get : t -> int -> int -> elt
 val set : t -> int -> int -> elt -> unit
 
-val get_image : 'a Gdk.drawable -> x:int -> y:int -> 
+val get_image : [>`drawable] Gobject.obj -> x:int -> y:int -> 
                    width:int -> height:int -> t
 (* Same as Gdk.Image.get, but with size info *)
 
